home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8182 < prev    next >
Encoding:
Text File  |  1998-08-12  |  1.6 KB  |  161 lines
  1. level2 startnoload
  2. /copyfontdict
  3. {
  4. findfont dup length dict
  5. begin
  6. {
  7. 1 index/FID ne{def}{pop pop}ifelse
  8. }forall
  9. }bd
  10. /$ckeyd md def
  11. /:skey
  12. {
  13. 1 index maxlength 2 index
  14. length sub
  15. ge
  16. {
  17. begin
  18. /$mkeys 20 dict def
  19. /$mkeys load
  20. end
  21. dup/$ckeyd xs
  22. }if
  23. 3 1 roll put
  24. }bd
  25. /fD1pass
  26. {
  27. 40
  28. $ckeyd
  29. //md
  30. ne
  31. {
  32. pop 1
  33. }if
  34. $ckeyd exch
  35. :skey
  36. }bd
  37. /:searchdict Z
  38. /:searchdict
  39. {
  40. exch 2 copy
  41. known
  42. {
  43. get
  44. }{
  45. exch/$mkeys
  46. get
  47. :searchdict
  48. }ifelse
  49. }bd
  50. /lU
  51. {
  52. //md exch 2 copy
  53. known
  54. {
  55. get
  56. }{
  57. exch
  58. /$mkeys get
  59. :searchdict
  60. }ifelse
  61. }bd
  62. /:xs{
  63. exch 0 1 2 index length 1 sub{
  64. 3 copy
  65. gsave 1 getinterval show grestore
  66. exch
  67. get 0.0
  68. rmoveto
  69. }for pop pop
  70. }bd
  71. /:ys{
  72. exch 0 1 2 index length 1 sub{
  73. 3 copy
  74. gsave 1 getinterval show grestore
  75. exch
  76. get 0.0 exch
  77. rmoveto
  78. }for pop pop
  79. }bd
  80. /:xys{
  81. exch 0 1 2 index length 1 sub{
  82. 3 copy
  83. gsave 1 getinterval show grestore
  84. exch 2 mul 2 copy
  85. 1 add get 3 -2 roll get exch
  86. rmoveto
  87. }for pop pop
  88. }bd
  89. level2 endnoload level2 not startnoload
  90. /copyfontdict
  91. {
  92. findfont dup length dict
  93. copy
  94. begin
  95. }bd
  96. /fD1pass/def ld
  97. /lU/load ld
  98. level2{
  99. /:xs/xshow ld
  100. /:ys/yshow ld
  101. /:xys/xyshow ld
  102. }if
  103. level2 not endnoload
  104. /fD Z
  105. /sf Z
  106. /scf Z
  107. /sf1pass
  108. {
  109. lU setfont
  110. }bd
  111. /scf1pass
  112. {
  113. exch lU exch scalefont fD
  114. }bd
  115. /scf2pass
  116. {
  117. scalefont fD
  118. }bd
  119. md/fontname known not{
  120. /fontname/customfont def
  121. }if
  122. /Encoding Z
  123. /:mre
  124. {
  125. copyfontdict
  126. /Encoding MacEncoding def
  127. fontname currentdict
  128. end
  129. definefont :ff fD
  130. }bd
  131. /:bsr
  132. {
  133. copyfontdict
  134. /Encoding Encoding 256 array copy def
  135. Encoding dup
  136. }bd
  137. /pd{put dup}bd
  138. /:esr
  139. {
  140. pop pop
  141. fontname currentdict
  142. end
  143. definefont :ff fD
  144. }bd
  145. /ps Z
  146. /fz{/ps xs}bd
  147. /cF/currentfont ld
  148. /mbf
  149. {
  150. /makeblendedfont where
  151. {
  152. pop
  153. makeblendedfont
  154. /ABlend exch definefont
  155. }{
  156. pop
  157. }ifelse
  158. fD
  159. }def
  160. %%EndFile
  161.